100 IFPEEK(46)<PEEK(44)THENPOKE45,PEEK(174):POKE46,PEEK(175):CLR
110 GOSUB360:SYS844:POKE808,239:PRINT"[147]"
120 POKE648,160:PRINT"LOCATION[194]HEX[194]DECIMAL[194]MEANING            ":POKE648,4
130 D=256:POKEA,FNH(S):POKEX,FNL(S):SYS828:M=PEEK(A)+D*PEEK(X):D=16:PRINT
140 FORI=33TO34:V(0)=PEEK(M):V(1)=PEEK(M+1):IFV(0)+V(1)=0THENNEXT:GOTO330
150 FORJ=0TO1:V=V(J):PRINTM+JTAB(9);
160 PRINTTAB(9)CHR$(FNC(FNH(V)))CHR$(FNC(FNL(V)))TAB(14)V(J);:IFJ=0THENPRINT
170 NEXT:M=M+2:PRINTTAB(21)S$(I)V(0)+256*V(1):PRINT:NEXT:M=M-1
180 M=M+1:V=PEEK(M):WAIT653,1,1:IFPEEK(203)=63THEN350
190 B=(V>127ANDV<204ORV=255)ANDNOTQ:IFVTHEN210
200 PRINTMTAB(9)"00"TAB(15)"0[146]"TAB(21)"END-OF-LINE":M=M+1:Q=V:GOTO140
210 PRINTMTAB(9)CHR$(18*-B)CHR$(FNC(FNH(V)))CHR$(FNC(FNL(V)))"[146]"TAB(15);
220 PRINTCHR$(18*-B)MID$(STR$(V),2)"[146]"TAB(22);
230 IFV=32THENPRINT"  "S$(V):GOTO180
240 IFV=34THENQ=NOTQ:PRINTCHR$(V):GOTO180
250 IFV=141ANDNOTBTHENPRINT"[205][146] "S$(V):GOTO180
260 IFV=255THENPRINT" [255]":GOTO180
270 IFBTHENPRINT" ";:POKEA,V:SYS936:PRINT:GOTO180
280 IFV>32THEN310
290 PRINT""CHR$(V+64)"[146] "S$(V);:IFS$(V)=""THENPRINT"[CTRL-"CHR$(V+64)"]";
300 PRINT:GOTO180
310 IFV<128ORV>160THENPRINTCHR$(V):GOTO180
320 PRINTQ$D$CHR$(V)Q$D$TAB(24)S$(V):GOTO180
330 M=M-1:PRINT"[145][145]";:POKEX,PEEK(214):SYS59903:PRINT:FORI=0TO2
340 PRINTM+ITAB(9)"00"TAB(15)"0":NEXT:PRINT"[145]"TAB(22)"[159]END OF PROGRAM[155]"
350 POKE198,0:GOSUB400:PRINT"[147]":GOTO130
360 I$="[147]BASIC EXAMINER":DIMS$(160):Q$=CHR$(34):D$=CHR$(20):A=780:X=A+1
370 Y=A+2:DEFFNH(F)=INT(F/D):DEFFNL(F)=F-D*FNH(F):DEFFNC(F)=F+48-7*(F>9)
380 FORI=5TO34:READS$(I):NEXT:FORI=129TO160:READS$(I):NEXT
390 FORI=828TO931:READJ:POKEI,J:NEXT
400 F$="":Q=0:IFPEEK(788)=49THENPRINTI$:INPUT"PROGRAM NAME";F$
410 F=LEN(F$):S$="":INPUT"START WITH LINE #";S$:S=INT(VAL(S$)):IFF=0THENRETURN
420 FORI=1TOF:POKE678+I,ASC(MID$(F$,I,1)):NEXT:POKE183,F:POKE157,128
430 FORI=184TO188:READJ:POKEI,J:NEXT:POKEA,0:POKEX,1:POKEY,8:SYS65493
440 POKE44,8:SYS42291:POKE44,192:IFST=64THENRETURN
450 PRINT:IFST<0THENPOKEX,5:SYS42039
460 OPEN15,8,15:INPUT#15,A,B$:CLOSE15:PRINT""B$
470 DATA WHITE,,,LOCK,UNLOCK,,,,RETURN,LOWER CASE,,
480 DATA CRSR DOWN,REV-ON,HOME,DEL,,,,,,,,RED,CRSR RIGHT,GREEN,BLUE,SPACE
490 DATA NEXT LINE AT,LINE NUMBER
500 DATA ORANGE,,,,F1,F3,F5,F7,F2,F4,F6,F8,SHIFT-RETURN,UPPER-CASE,,BLACK
510 DATA CRSR UP,RVS-OFF,CLEAR,INST,BROWN,LT.RED,GRAY1,GRAY2,LT.GREEN,LT.BLUE
520 DATA GRAY3,PURPLE,CRSR LEFT,YELLOW,CYAN,SHIFT-SPACE
530 DATA 134,20,133,21,169,1,162,8,32,23,166,165,95,166,96,96,120,169,127,141
540 DATA 13,220,169,3,141,21,3,169,120,141,20,3,169,129,141,26,208,169,27,141
550 DATA 17,208,88,160,31,185,35,167,153,167,3,136,208,247,96,41,127,76,210
560 DATA 255,169,1,141,25,208,162,250,160,199,169,21,44,18,208,16,6,162,57,160
570 DATA 197,169,133,142,18,208,140,0,221,141,24,208,173,13,220,41,1,240,3,76
580 DATA 49,234,76,188,254,0,0,8,167,2